home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0007.ua < prev    next >
Text File  |  1996-10-30  |  305b  |  26 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0007.ua
  9. `*
  10. `* Tests the minus operator.
  11.  
  12. #1 .H 2 0 0 0
  13. #2 .M "tc0007" 20 0 0 0
  14.  
  15. #20 >22 .c 1 21
  16. #21 .s "(100 - 1) = "
  17.  
  18. #22 >30 .c 4 23
  19. #23 @mi 24 25
  20. #24 .n 100
  21. #25 .n 1
  22.  
  23. #30 .c 3 0
  24.  
  25.  
  26.